%%%%%%%%%%%%%%%%%%
% Table 1: Hedging effectiveness on one-month 50delta call and put options
% Liuren Wu, liuren.wu@baruch.cuny.edu
%%%%%%%%%%%%%%%%%%

disp('Table 1. Summary stats of excess returns from writing one-month atm stock options');
NRV=Z.NRV;
zname={'Call','Put'}; ii=[2,1];
x=100*NRV(:,ii,1,1:3); TT=size(x,1); x=reshape(x,TT,2*3);

tt=[nanmean(x);
    nanstd(x);
    prctile(x,[10,25,50,75,90]);
    skewness(x);
    kurtosis(x)-3];
v0=repmat(tt(2,1:2),1,3).^2;
vv=tt(2,:).^2;
vr=100*(1-vv./v0);
tt=[tt;vr];
k=1; fprintf(1, '\\\\  \\hline  \\\\ \n');
for j=1:2;fprintf(1, '%20s ', zname{j});fprintf(1, [' & %8.2f & %8.2f  && %8.2f  & %8.2f  & %8.2f  & %8.2f  & %8.2f   &&  %8.2f  & %8.2f  &&    ---      \\\\ \n'], tt(1:end-1,(k-1)*2+j));end
for k=2:3
    fprintf(1, '\\\\  \\hline  \\\\ \n');
    for j=1:2;fprintf(1, '%20s ', zname{j});fprintf(1, [' & %8.2f & %8.2f  && %8.2f  & %8.2f  & %8.2f  & %8.2f  & %8.2f   &&  %8.2f  & %8.2f  && %8.2f    \\\\ \n'], tt(:,(k-1)*2+j));end
end

return